Electronic Clipper 1996 November/Electronic Clipper 1996 November.iso/ideasrc/pyramid.dir/00051_Script_51

Text File | 1996-10-11 | 203b | 9 lines

on mouseup
  repeat with n = 2 to 21
    if sprite n intersects 22 then
      put integer (field "fruit" + 1) into field "fruit"
      go frame "mouthopen"
      exit
    end if
  end repeat
end